unit clsRepositorioRelatorio;

interface

uses
  clsRaveReport;

Type
  TRepositorioRelatorio = class
  private
    FRaveReport: TRaveReport;
    procedure SetRaveReport(const Value: TRaveReport);
  protected
    property RaveReport: TRaveReport read FRaveReport write SetRaveReport;
  public
    constructor Create;
    destructor Destroy; override;
  end;

implementation

uses clsConfig, LibUtils, SysUtils;

{ TRepositorioRelatorio }

constructor TRepositorioRelatorio.Create;
begin
  Self.RaveReport := TRaveReport.Create;
end;

destructor TRepositorioRelatorio.Destroy;
begin
  Self.RaveReport.Destroy;
  inherited;
end;

procedure TRepositorioRelatorio.SetRaveReport(const Value: TRaveReport);
begin
  FRaveReport := Value;
end;

end.
